module dimensions

  integer  :: jx, jy, jz, jv, jDir                    ! array dimensions

  integer  :: npDir                                   ! number of processes

  parameter(jx       = jx_def)
  parameter(jy       = jy_def)
  parameter(jz       = jz_def)
  parameter(jv       = jv_def)
  parameter(jDir     = jdir_def)
  parameter(npDir    = npdir_def)


  real :: dx,  dy,  dz,  dv                           ! resolution  in r-space
  real :: dkx, dky, dkz, dkv                          ! resolution  in k-space

  real ::  xvec(jx),  yvec(jy),  zvec(jz),  vvec(jv)  ! coord. vectors in r-space
  real :: kXvec(jx), kYvec(jy), kZvec(jz), kVvec(jv)  ! coord. vectors in k-space


end module
